home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / argv_t < prev    next >
Text File  |  1992-02-23  |  2KB  |  87 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/io/argv.t.old    Tue Apr 23 23:48:50 1991
  14. --- t/io/argv.t    Thu Nov 14 08:57:08 1991
  15. ***************
  16. *** 4,18 ****
  17.   
  18.   print "1..5\n";
  19.   
  20. ! open(try, '>Io.argv.tmp') || (die "Can't open temp file.");
  21.   print try "a line\n";
  22.   close try;
  23.   
  24. ! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
  25.   
  26.   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  27.   
  28. ! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
  29.   
  30.   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  31.   
  32. --- 4,29 ----
  33.   
  34.   print "1..5\n";
  35.   
  36. ! eval('umask');    # won't work on MS-DOS
  37. ! $msdos = $@;
  38. ! if ( $msdos ) {
  39. !     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
  40. !     $null_device = 'NUL';
  41. ! }
  42. ! else {
  43. !     $rm = '/bin/rm';
  44. !     $null_device = '/dev/null';
  45. ! }
  46. ! 
  47. ! open(try, '>Io_argv.tmp') || (die "Can't open temp file.");
  48.   print try "a line\n";
  49.   close try;
  50.   
  51. ! $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io_argv.tmp Io_argv.tmp`;
  52.   
  53.   if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
  54.   
  55. ! $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io_argv.tmp -`;
  56.   
  57.   if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
  58.   
  59. ***************
  60. *** 20,26 ****
  61.   
  62.   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  63.   
  64. ! @ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
  65.   while (<>) {
  66.       $y .= $. . $_;
  67.       if (eof()) {
  68. --- 31,37 ----
  69.   
  70.   if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
  71.   
  72. ! @ARGV = ('Io_argv.tmp', 'Io_argv.tmp', $null_device, 'Io_argv.tmp');
  73.   while (<>) {
  74.       $y .= $. . $_;
  75.       if (eof()) {
  76. ***************
  77. *** 33,36 ****
  78.   else
  79.       {print "not ok 5\n";}
  80.   
  81. ! `/bin/rm -f Io.argv.tmp`;
  82. --- 44,47 ----
  83.   else
  84.       {print "not ok 5\n";}
  85.   
  86. ! `$rm -f Io_argv.tmp`;
  87.